home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…rary 6 (Reseller Edition) / Apple Ref. & Pres. Lib.v6.0.toast / pc / 3-Presentations / Apple Demos / Training / HyperCard 2.0 Training / Intro to HyperCard 2.0 / card_20959.txt < prev    next >
Text File  |  1990-08-24  |  9KB  |  401 lines
  1. -- card: 20959 from stack: in.0
  2. -- bmap block id: 21184
  3. -- flags: 0000
  4. -- background id: 15491
  5. -- name: buttons
  6. ----- HyperTalk script -----
  7. -- This handler resets this cd
  8. on closeCard
  9.   lock screen
  10.   set hilite of btn id 20 to false
  11.   set hilite of btn id 21 to false
  12.   set the textSize of cd fld "textFld" to 14
  13.   set the textHeight of cd fld "textFld" to 15
  14.   set the textStyle of cd fld "textFld" to plain
  15.   set the textFont of cd fld "textFld" to Futura
  16.   put empty into cd fld "timeFld"
  17.   unlock screen
  18. end closeCard
  19.  
  20.  
  21.  
  22.  
  23. -- part 16 (button)
  24. -- low flags: 00
  25. -- high flags: 0001
  26. -- rect: left=246 top=255 right=282 bottom=276
  27. -- title width / last selected line: 0
  28. -- icon id / first selected line: 3839 / 3839
  29. -- text alignment: 1
  30. -- font id: 0
  31. -- text size: 12
  32. -- style flags: 0
  33. -- line height: 16
  34. -- part name: rightPlug
  35.  
  36.  
  37. -- part 13 (button)
  38. -- low flags: 00
  39. -- high flags: 0000
  40. -- rect: left=81 top=191 right=223 bottom=113
  41. -- title width / last selected line: 0
  42. -- icon id / first selected line: 3412 / 3412
  43. -- text alignment: 1
  44. -- font id: 0
  45. -- text size: 12
  46. -- style flags: 0
  47. -- line height: 16
  48. -- part name: scissors1
  49.  
  50.  
  51. -- part 1 (button)
  52. -- low flags: 00
  53. -- high flags: A001
  54. -- rect: left=42 top=186 right=229 bottom=152
  55. -- title width / last selected line: 0
  56. -- icon id / first selected line: 0 / 0
  57. -- text alignment: 1
  58. -- font id: 174
  59. -- text size: 12
  60. -- style flags: 0
  61. -- line height: 16
  62. -- part name: I'm hiding something
  63. ----- HyperTalk script -----
  64. on mouseUp
  65.   set cursor to none
  66.   hide me
  67.   repeat for 5
  68.     set the icon of btn "scissors1" to "scissors1"
  69.     wait 10
  70.     set the icon of btn "scissors1" to "scissors2"
  71.     wait 10
  72.   end repeat
  73.   show me
  74.   choose browse tool
  75. end mouseUp
  76.  
  77.  
  78.  
  79. -- part 2 (field)
  80. -- low flags: 01
  81. -- high flags: 0007
  82. -- rect: left=31 top=248 right=290 bottom=169
  83. -- title width / last selected line: 0
  84. -- icon id / first selected line: 0 / 0
  85. -- text alignment: 0
  86. -- font id: 3
  87. -- text size: 9
  88. -- style flags: 0
  89. -- line height: 10
  90. -- part name: nameFldF
  91.  
  92.  
  93. -- part 3 (button)
  94. -- low flags: 00
  95. -- high flags: 8006
  96. -- rect: left=28 top=292 right=308 bottom=170
  97. -- title width / last selected line: 0
  98. -- icon id / first selected line: 0 / 0
  99. -- text alignment: 1
  100. -- font id: 0
  101. -- text size: 12
  102. -- style flags: 0
  103. -- line height: 16
  104. -- part name: Sort by Last Name
  105. ----- HyperTalk script -----
  106. on mouseUp
  107.   set hilite of btn "Sort By First Name" to false
  108.   set hilite of me to true
  109.   set the scroll of cd fld "nameFldL" to 0
  110.   show cd fld "nameFldL"
  111.   hide cd fld "nameFldF"
  112. end mouseUp
  113.  
  114.  
  115.  
  116. -- part 4 (button)
  117. -- low flags: 00
  118. -- high flags: C006
  119. -- rect: left=28 top=307 right=323 bottom=172
  120. -- title width / last selected line: 0
  121. -- icon id / first selected line: 0 / 0
  122. -- text alignment: 1
  123. -- font id: 0
  124. -- text size: 12
  125. -- style flags: 0
  126. -- line height: 16
  127. -- part name: Sort by First Name
  128. ----- HyperTalk script -----
  129. on mouseUp
  130.   set hilite of btn "Sort By Last Name" to false
  131.   set hilite of me to true
  132.   set the scroll of cd fld "nameFldF" to 0
  133.   show cd fld "nameFldF"
  134.   hide cd fld "nameFldL"
  135. end mouseUp
  136.  
  137.  
  138.  
  139.  
  140. -- part 9 (field)
  141. -- low flags: 01
  142. -- high flags: 0002
  143. -- rect: left=318 top=234 right=258 bottom=424
  144. -- title width / last selected line: 0
  145. -- icon id / first selected line: 0 / 0
  146. -- text alignment: 1
  147. -- font id: 174
  148. -- text size: 10
  149. -- style flags: 0
  150. -- line height: 13
  151. -- part name: TimeFld
  152.  
  153.  
  154. -- part 10 (button)
  155. -- low flags: 00
  156. -- high flags: A002
  157. -- rect: left=315 top=248 right=265 bottom=427
  158. -- title width / last selected line: 0
  159. -- icon id / first selected line: 0 / 0
  160. -- text alignment: 1
  161. -- font id: 174
  162. -- text size: 10
  163. -- style flags: 0
  164. -- line height: 13
  165. -- part name: What time is it?
  166. ----- HyperTalk script -----
  167. on mouseUp
  168.   put the long time into cd fld "TimeFld"
  169. end mouseUp
  170.  
  171.  
  172.  
  173. -- part 12 (button)
  174. -- low flags: 00
  175. -- high flags: A004
  176. -- rect: left=312 top=303 right=328 bottom=439
  177. -- title width / last selected line: 0
  178. -- icon id / first selected line: 0 / 0
  179. -- text alignment: 1
  180. -- font id: 174
  181. -- text size: 14
  182. -- style flags: 0
  183. -- line height: 18
  184. -- part name: Do some addition
  185. ----- HyperTalk script -----
  186. on mouseUp
  187.   ask "Please enter a number."
  188.   put it into Num1
  189.   ask "Please enter another number."
  190.   put it into Num2
  191.   put num1 + num2 into theAnswer
  192.   answer Num1 && "+" && Num2 && "=" && theAnswer & "."
  193. end mouseUp
  194.  
  195.  
  196.  
  197. -- part 14 (field)
  198. -- low flags: 81
  199. -- high flags: 0007
  200. -- rect: left=31 top=248 right=290 bottom=169
  201. -- title width / last selected line: 0
  202. -- icon id / first selected line: 0 / 0
  203. -- text alignment: 0
  204. -- font id: 3
  205. -- text size: 9
  206. -- style flags: 0
  207. -- line height: 10
  208. -- part name: nameFldL
  209.  
  210.  
  211. -- part 15 (button)
  212. -- low flags: 00
  213. -- high flags: 0001
  214. -- rect: left=192 top=255 right=282 bottom=222
  215. -- title width / last selected line: 0
  216. -- icon id / first selected line: 589 / 589
  217. -- text alignment: 1
  218. -- font id: 0
  219. -- text size: 12
  220. -- style flags: 0
  221. -- line height: 16
  222. -- part name: leftPlug
  223.  
  224.  
  225. -- part 17 (button)
  226. -- low flags: 80
  227. -- high flags: 0000
  228. -- rect: left=222 top=179 right=207 bottom=251
  229. -- title width / last selected line: 0
  230. -- icon id / first selected line: 7743 / 7743
  231. -- text alignment: 1
  232. -- font id: 0
  233. -- text size: 12
  234. -- style flags: 0
  235. -- line height: 16
  236. -- part name: Bulb
  237.  
  238.  
  239. -- part 5 (button)
  240. -- low flags: 00
  241. -- high flags: 2000
  242. -- rect: left=193 top=197 right=281 bottom=275
  243. -- title width / last selected line: 0
  244. -- icon id / first selected line: 0 / 0
  245. -- text alignment: 1
  246. -- font id: 0
  247. -- text size: 12
  248. -- style flags: 0
  249. -- line height: 16
  250. -- part name: 
  251. ----- HyperTalk script -----
  252. -- Do the little animation on the "H" btn
  253. on mouseUp
  254.   set cursor to none
  255.   lock screen
  256.   hide btn "leftPlug"
  257.   hide btn "rightPlug"
  258.   unlock screen with barn door open
  259.   lock screen
  260.   show btn "Bulb"
  261.   unlock screen
  262.   repeat for 10
  263.     set the right of btn "Bulb" to 246
  264.     wait 5
  265.     set the right of btn "Bulb" to 251
  266.     wait 5
  267.   end repeat
  268.   lock screen
  269.   hide btn "Bulb"
  270.   show btn "leftPlug"
  271.   show btn "rightPlug"
  272.   unlock screen
  273.   choose browse tool
  274. end mouseUp
  275.  
  276.  
  277.  
  278. -- part 18 (field)
  279. -- low flags: 01
  280. -- high flags: 0000
  281. -- rect: left=71 top=50 right=163 bottom=412
  282. -- title width / last selected line: 0
  283. -- icon id / first selected line: 0 / 0
  284. -- text alignment: 0
  285. -- font id: 174
  286. -- text size: 14
  287. -- style flags: 0
  288. -- line height: 15
  289. -- part name: textFld
  290.  
  291.  
  292. -- part 20 (button)
  293. -- low flags: 00
  294. -- high flags: A005
  295. -- rect: left=296 top=185 right=202 bottom=431
  296. -- title width / last selected line: 0
  297. -- icon id / first selected line: 0 / 0
  298. -- text alignment: 1
  299. -- font id: 0
  300. -- text size: 12
  301. -- style flags: 0
  302. -- line height: 16
  303. -- part name: Change the Font
  304. ----- HyperTalk script -----
  305. on mouseUp
  306.   if (the textFont of cd fld "textFld" is "Futura") then
  307.     lock screen
  308.     set the textFont of cd fld "textFld" to Geneva
  309.     set the textSize of cd fld "textFld" to 12
  310.     unlock screen
  311.   else
  312.     lock screen
  313.     set the textFont of cd fld "textFld" to Futura
  314.     set the textSize of cd fld "textFld" to 14
  315.     set the textHeight of cd fld "textFld" to 15
  316.     unlock screen
  317.   end if
  318. end mouseUp
  319.  
  320.  
  321.  
  322. -- part 21 (button)
  323. -- low flags: 00
  324. -- high flags: A005
  325. -- rect: left=296 top=201 right=222 bottom=449
  326. -- title width / last selected line: 0
  327. -- icon id / first selected line: 0 / 0
  328. -- text alignment: 1
  329. -- font id: 0
  330. -- text size: 12
  331. -- style flags: 0
  332. -- line height: 16
  333. -- part name: Make the font bold
  334. ----- HyperTalk script -----
  335. on mouseUp
  336.   if (the textStyle of cd fld "textFld" is "plain") then
  337.     set the textStyle of cd fld "textFld" to bold
  338.   else
  339.     set the textStyle of cd fld "textFld" to plain
  340.   end if
  341. end mouseUp
  342.  
  343.  
  344.  
  345. -- part 11 (button)
  346. -- low flags: 00
  347. -- high flags: A003
  348. -- rect: left=328 top=275 right=296 bottom=416
  349. -- title width / last selected line: 0
  350. -- icon id / first selected line: 0 / 0
  351. -- text alignment: 1
  352. -- font id: 0
  353. -- text size: 12
  354. -- style flags: 0
  355. -- line height: 16
  356. -- part name: Move Me
  357. ----- HyperTalk script -----
  358. on mouseUp
  359.   put the loc of me into startLoc
  360.   put the loc of me into playLoc
  361.   repeat for 3
  362.     put random(512) into theH
  363.     put random(342) into theV
  364.     put theH into item 1 of playLoc
  365.     put theV into item 2 of playLoc
  366.     set the Loc of me to playLoc
  367.     wait 15
  368.   end repeat
  369.   set the loc of me to startLoc
  370. end mouseUp
  371.  
  372.  
  373.  
  374. -- part contents for card part 2
  375. ----- text -----
  376. Blaise Pascal
  377. Cecelia James
  378. David Paffner
  379. Julia Greenwood
  380. Kanae Ito
  381. Martha Sorites
  382. Rebecca Soldner
  383. Washington Pulver
  384.  
  385.  
  386. -- part contents for card part 14
  387. ----- text -----
  388. Greenwood, Julia
  389. Ito, Kanae 
  390. James, Cecelia
  391. Paffner, David 
  392. Pascal, Blaise 
  393. Pulver, Washington 
  394. Soldner, Rebecca 
  395. Sorites, Martha
  396.  
  397. -- part contents for card part 18
  398. ----- text -----
  399. Something happens when you click on a HyperCard button: you go to another card, or an animation starts, or... almost any action can be caused by clicking on a button. On this card are sample buttons to show you a few of the actions buttons can start. 
  400. (The buttons below also demonstrate all the styles that HyperCard buttons can have.)
  401.